home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 101-125 / scopedisk122 / bassub / filerequestor.sub < prev    next >
Text File  |  1995-03-19  |  566b  |  23 lines
  1. REM Requestor
  2. 'Subroutine for using ARP file requestor
  3. 'greet$ = title bar message
  4. 'dir$ = returns directory
  5. 'file$ = returns filename
  6. 'colr% = 0 or 1
  7. '
  8. SUB Requestor(greet$,dir$,file$,colr%)
  9.   SHARED req&()
  10.   greet$=greet$+CHR$(0)
  11.   dir$=dir$+STRING$(354,0)
  12.   file$=file$+STRING$(32,0)
  13.   req&(1)=SADD(greet$)
  14.   req&(2)=SADD(file$)
  15.   req&(3)=SADD(dir$)
  16.   req&(4)=WINDOW(7)
  17.   req&(5)=2^28-2^29*(colr%=1)
  18.   temp&=FileRequest&(VARPTR(req&(1)))
  19.   IF temp&=0 THEN file$=CHR$(0)
  20.   dir$=LEFT$(dir$,INSTR(dir$,CHR$(0))-1)
  21.   file$=LEFT$(file$,INSTR(file$,CHR$(0))-1)
  22. END SUB
  23.